10 PRINT"[147]":POKE 53280,5:POKE 53281,1
20 IF PEEK(49152)<>76 THEN LOAD "HIRES",8,1
97 :
98 REM INITIALIZE VARIABLES
99 :
100 HIRES=12*4096:DRAW=HI+3:PLOT=DR+3:MOVE=PL+3:CLSCR=MO+3:DMODE=CL+3
110 SELPC=DM+3:COLOUR=SE+3:BOX=CO+3:TEXT=BO+3:PRNT=TE+3:CHSET=PR+3:TRAP=CH+3
197 :
198 REM BEGIN THE SHOW
199 :
200 SYS HIRES,0,1,6
210 XC=159:YC=100:XR=70:YR=50:INC=10:SA=45:EA=75:GOSUB 600
220 SA=75:EA=160:GOSUB 600
230 SA=160:EA=240:GOSUB 600
240 SA=240:EA=325:GOSUB 600
250 SYS COLOUR,7
260 XC=175:SA=-35:EA=45:GOSUB 600
270 SYS COLOUR,9
280 SYS BOX,6,170,307,165
290 SYS BOX,3,172,313,169
300 SYS CHSET,1
310 SYS PRNT,15,9,"[210]ENT"
320 SYS PRNT,13,13,"[156][198]OOD"
330 SYS PRNT,18,16,"[195]LOTHES"
340 SYS PRNT,24,12,"[158][212]RAVEL[142]"
350 SYS PRNT,0,0,"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
360 SYS PRNT,0,1,"[221]         [144][208][201][197] [195][200][193][210][212][211] ARE [197]ASY[154]          "+CHR$(142)+"[221]"
370 SYS PRNT,0,2,"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]"
380 GET A$:IF A$<>CHR$(13) THEN 380
390 END
497 :
498 REM DRAW ARC
499 :
500 Z1=SA*(null)/180:Z2=EA*(null)/180:Z3=INC*(null)/180
510 X=XC+XR*COS(Z1):Y=YC+YR*SIN(Z1)
520 SYS MOVE,X,Y
530 FOR I=Z1 TO Z2 STEP Z3
540 X=XC+XR*COS(I):Y=YC+YR*SIN(I)
550 SYS DRAW,X,Y
560 NEXT
570 SYS DRAW,XC+XR*COS(Z2),YC+YR*SIN(Z2)
580 RETURN
597 :
598 REM DRAW PIE
599 :
600 GOSUB 500
610 SYS DRAW,XC,YC:SYS DRAW,XC+XR*COS(Z1),YC+YR*SIN(Z1):RETURN